home *** CD-ROM | disk | FTP | other *** search
/ Grapevine 10 / Grapevine 10 (Disk 2 of 3).adf / sources / GVT.i < prev    next >
Text File  |  1990-09-13  |  1KB  |  44 lines
  1. ********************************************************************************
  2. ********************************************************************************
  3. **                                                                            **
  4. **            Global Vector Table Include - By Shagratt/LSD 6/4/92            **
  5. **                                                                            **
  6. ********************************************************************************
  7. ********************************************************************************
  8.  
  9.  
  10.     cmp.l    #0,a2
  11.     bne    no_gvtruntime    
  12.  
  13.     move.l    4,a6
  14.     lea    gvtname,a1
  15.     jsr    -294(a6)        ; find task
  16.     cmp.l    #0,d0
  17.     bne    _gvtloaded
  18.     move.w    #$ffff,d0
  19. gvt_err1    move.w    $dff006,$dff180
  20.     dbf    d0,gvt_err1
  21.     rts
  22.  
  23. _gvtloaded    trap    #0        ; gets info from GVTruntime
  24. no_gvtruntime:
  25.     movem.l    a1-a6,_GVTspace
  26.     bra    skip_gvtvars
  27. _GVTspace:    dc.l    0,0,0,0,0,0
  28. gvtname:    dc.b    "GVT",0
  29.     even
  30. skip_gvtvars:
  31.     
  32. gvtcall:    MACRO    \1    
  33.  
  34.     movem.l    _GVTspace,a1-a6
  35.     
  36.     move.w    #\1,d0
  37.     ext.l    d0
  38.     move.l    (a2,d0),a4
  39.     moveq    #12,d0
  40.     jsr    (a5)
  41.  
  42.         ENDM
  43.         
  44.